home *** CD-ROM | disk | FTP | other *** search
- ` ------------------------------------------------------------------------
- ` Bitmap Tiling DarkForge Snippet (6/6/2000)
- ` ------------------------------------------------------------------------
- `
- ` This will take a small bitmap and fill the screen with it.
- ` Just like the HTML "background" command.
-
- sync rate 0
- sync on
- hide mouse
-
- load bitmap "bg_grape.bmp",1
- get image 1,0,0,bitmap width(1),bitmap height(1)
-
- set current bitmap 0
-
- tx=screen width()/bitmap width(1)
- ty=screen height()/bitmap height(1)
-
- for a=0 to ty
-
- for b=0 to tx
- paste image 1,x,y
- inc x,bitmap width(1)
- next b
-
- x=0
- inc y,bitmap height(1)
-
- next a
-
- sync
-
- wait key
- end
-
-